home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / canvas-animate.stk < prev    next >
Encoding:
Text File  |  1995-12-13  |  216 b   |  13 lines
  1. ;;; Animation!
  2.  
  3. (pack (canvas '.c1) :expand #t :fill "both")
  4.  
  5. (.c1 'create 'rectangle 10 10 40 40 :fill "red" :tag "item")
  6.  
  7. (let do-update ()
  8.   (.c1 'move 'item 1 1)
  9.   (after 50 (lambda ()
  10.         (catch (do-update)))))
  11.  
  12.  
  13.